package Wix::Tag::Property;

use parent qw/Wix::Tag/;

sub new() {
	my ($class, $args) = @_;
	
	my $self = Wix::Tag->new({TAG => 'Property'});
	
	$self->addAttr('Id', $args->{ID});
	$self->addAttr('Value', $args->{VALUE});
	
	return bless($self, $class);
}

sub addDirectorySearch($) {
	my ($self, $directorysearch) = @_;

	$self->addElement('Wix::Tag::DirectorySearch', $directorysearch);	
}

sub GetInstallDir() {
	return Wix::Tag::Property->new(
		{
			ID => 'WIXUI_INSTALLDIR',
			VALUE => 'APPLICATIONROOTDIRECTORY'
		}
	);
}

1;